home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / proxy11.zip / QUICKSRT.PRX < prev    next >
Text File  |  1991-10-04  |  177b  |  8 lines
  1. // quicksort: seq -> seq
  2.  
  3. quicksort(s;x) { if(len s<2) return s;
  4.           x=s[1];
  5.           return quicksort([y:y<-s;y<x]) conc [x]
  6.         conc quicksort([y:y<-tl s;y>=x]);};
  7. end
  8.